1 REM *** WHICH IS ... MODULE *** 2 REM LISTS FOR KIDS 3 REM (IN DIRECT MODE, TYPE 'POKE 53265,PEEK(53265)OR 64' TO MAKE SHIFTED 4 REM CHARACTERS SHOW UP WHEN TYPING THEM IN 10 FF$="WHICH IS ..." 11 FF$="@0:Q "+LEFT$(FF$,14)+",S,W" 12 OPEN 2,8,2,FF$ 15 Z$=CHR$(13) 17 POKE 53265,PEEK(53265)OR 64 19 REM * HOW MANY QUIZZES? 20 NQ=8:PRINT#2,NQ 30 FOR I=1 TO NQ:READ TN:PRINT#2,TN 32 FOR J=0 TO 3:READ A:PRINT#2,A:POKE 53281+J,A:NEXT:POKE 53280,PEEK(53281) 34 FOR J=0 TO 3:READ FC$(J):PRINT#2,FC$(J):NEXT 36 READ A$,B$:A$=FC$(3)+A$:B$=FC$(0)+B$:PRINT#2,A$Z$B$:PRINT"[147]"A$:PRINT B$ 38 READ A$,B$:A$=FC$(1)+A$:B$=FC$(1)+B$:PRINT#2,A$Z$B$:PRINT A$B$ 40 FOR J=1 TO TN 42 READ A$,B$:C$="":A$=" "+A$:FOR K=1 TO LEN(B$):A=ASC(MID$(B$,K,1)) 44 IF A<32 OR A>95 THEN A=160:GOTO 47 45 IF A>63 THEN A=A+32:GOTO 47 46 A=A+128 47 C$=C$+CHR$(A):NEXT:B$="[160]"+C$+"[146]" 49 PRINT#2,A$Z$B$:PRINT ""FC$(2)A$"[146]"FC$(3)B$:NEXT:NEXT 50 CLOSE 2:PRINT "";:END 99 REM ** QUIZ #1 100 DATA 7,6,8,5,7,"","[158]","[158]","" 101 REM * QUIZ TITLE 102 DATA "[160][160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][211][200][207][210][212][197][211][212][191][160][160][160][160][160][160][160][160][160][160][160][146]" 103 REM * FORMAT LINE 104 DATA " PUT IN ORDER FROM SHORTEST TO LONGEST " 105 REM * COLUMN HEADERS 106 DATA "[160][212][200][201][211][160][204][207][206][199][160][174][174][174][160][160][160][160][160][160][160]" 108 DATA "[160][201][211][160][212][200][201][211][160][205][193][206][217][160][174][174][174][160]" 109 REM ** QUIZ ITEMS 110 DATA "INCH (IN.) ","2.54 CENTIMETERS " 111 DATA "FOOT (FT.) ","12 INCHES " 112 DATA "YARD (YD.) ","3 FT.(36 IN.) " 113 DATA "ROD (RD.) ","5.5 YD.(16.5 FT.)" 114 DATA "FURLONG (FUR.) ","40 RD.(660 FT.) " 115 DATA "MILE (MI.) ","8 FUR.(5^280 FT.)" 116 DATA "LEAGUE ","3 MI.(5^280 YD.) " 199 REM ** QUIZ #2 200 DATA 7,14,7,4,8,"","[144]","[144]","" 201 REM * QUIZ TITLE 202 DATA "[160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][211][200][207][210][212][197][211][212][191][173][173][205][197][212][210][201][195][160][160][160][160][160][160][160][146]" 203 REM * FORMAT LINE 204 DATA " ARRANGE THESE MEASURES^SHORTEST FIRST " 205 REM * HEADERS 206 DATA "[160][205][197][193][211][213][210][197][160][160][160][160][160][160][160][160][160][160][160][160][160]" 208 DATA "[160][201][211][160][205][193][196][197][160][207][198][160][174][174][174][160][160][160]" 209 REM ** QUIZ ITEMS IN CORRECT ORDER 210 DATA "MILLIMETER (MM)","0.001 METER " 211 DATA "CENTIMETER (CM)","10 MM (0.01 M) " 212 DATA "DECIMETER (DM)","10 CM (0.1 M) " 213 DATA "METER (M)","10 DM (39.37 IN.)" 214 DATA "DEKAMETER (DAM)","10 M " 215 DATA "HECTOMETER (HM)","10 DAM (100 M) " 216 DATA "KILOMETER (KM)","10 HM (1000 M) " 299 REM ** QUIZ #3 300 DATA 7,2,4,7,1,"","[144]","[144]","" 301 REM * QUIZ TITLE 302 DATA "[160][160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][196][193][217][160][201][211][160][206][197][216][212][191][160][160][160][160][160][160][160][160][160][160][160][146]" 303 REM * FORMAT LINE 304 DATA " ARRANGE THE DAYS OF THE WEEK IN ORDER " 305 REM * HEADERS 306 DATA "[160][196][193][217][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 308 DATA "[160][207][210][201][199][201][206][193][204][160][205][197][193][206][201][206][199][160]" 309 REM ** QUIZ ITEMS IN CORRECT ORDER 310 DATA "SUNDAY ","SUN'S DAY " 311 DATA "MONDAY ","MOON'S DAY " 312 DATA "TUESDAY ","TIW'S DAY " 313 DATA "WEDNESDAY ","WODEN'S DAY " 314 DATA "THURSDAY ","THOR'S DAY " 315 DATA "FRIDAY ","FRIA'S DAY " 316 DATA "SATURDAY ","SATURN'S DAY " 399 REM ** QUIZ #4 400 DATA 12,3,4,5,6,"","","[144]","[158]" 401 REM * QUIZ TITLE 402 DATA "[160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][205][207][206][212][200][160][201][211][160][206][197][216][212][191][160][160][160][160][160][160][160][160][160][160][146]" 403 REM * FORMAT LINE 404 DATA " ARRANGE THE MONTHS FROM FIRST TO LAST " 405 REM * HEADERS 406 DATA "[160][205][207][206][212][200][160][160][160][160][160][206][207][174][207][198][160][196][193][217][211]" 408 DATA "[160][206][193][205][197][160][195][193][205][197][160][198][210][207][205][173][173][160]" 409 REM ** QUIZ ITEMS IN CORRECT ORDER 410 DATA "JANUARY 31","JANUS--ROMAN GOD " 411 DATA "FEBRUARY 28 OR 29","FEBRUA--FEASTS " 412 DATA "MARCH 31","MARS--ROMAN GOD " 413 DATA "APRIL 30","APRILIS (? APHRO)" 414 DATA "MAY 31","MAIA--ROM.GODDESS" 415 DATA "JUNE 30","JUNIUS (? JUNO) " 416 DATA "JULY 31","JULIUS CAESAR " 417 DATA "AUGUST 31","AUGUSTUS CAESAR " 418 DATA "SEPTEMBER 30","'SEVENTH MONTH' " 419 DATA "OCTOBER 31","'EIGHTH MONTH' " 420 DATA "NOVEMBER 30","'NINTH MONTH' " 421 DATA "DECEMBER 31","'TENTH MONTH' " 499 REM ** QUIZ #5 500 DATA 9,6,14,1,8,"","[144]","","" 501 REM * QUIZ TITLE 502 DATA "[160][160][160][160][160][160][160][215][200][201][195][200][160][208][204][193][206][197][212][160][201][211][160][200][207][212][212][197][211][212][191][160][160][160][160][160][160][160][160][146]" 503 REM * FORMAT LINE 504 DATA " DISTANCE FROM SUN^NEAREST TO FARTHEST " 505 REM * HEADERS 506 DATA "[160][208][204][193][206][197][212][160][206][193][205][197][160][160][160][160][160][160][160][160][160]" 508 DATA "[160][198][193][210][212][200][197][211][212][160][196][201][211][212][193][206][195][197]" 509 REM ** QUIZ ITEMS IN CORRECT ORDER 510 DATA "MERCURY "," 43.4 MILL.MILES" 511 DATA "VENUS "," 67.7 MILL.MILES" 512 DATA "EARTH "," 94.6 MILL.MILES" 513 DATA "MARS "," 155.0 MILL.MILES" 514 DATA "JUPITER "," 507.0 MILL.MILES" 515 DATA "SATURN "," 937.5 MILL.MILES" 516 DATA "URANUS ","1859.7 MILL.MILES" 517 DATA "NEPTUNE ","2821.7 MILL.MILES" 518 DATA "PLUTO ","4551.4 MILL.MILES" 599 REM ** QUIZ #6 600 DATA 6,12,11,13,10,"[158]","","","[149]" 601 REM * QUIZ TITLE 602 DATA "[160][160][160][160][160][160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][204][201][199][200][212][197][211][212][191][160][160][160][160][160][160][160][160][160][160][146]" 603 REM * FORMAT LINE 604 DATA " WEIGHTS FROM LIGHTEST TO HEAVIEST " 605 REM * HEADERS 606 DATA "[160][215][197][201][199][200][212][160][160][160][160][160][160][160][160][160][160][160][160][160][160]" 608 DATA "[160][201][211][160][205][193][196][197][160][207][198][160][174][174][174][160][160][160]" 609 REM ** QUIZ ITEMS IN CORRECT ORDER 610 DATA "GRAIN (GR.)","64.8 MILLIGRAMS " 611 DATA "DRAM (DR.)","27-11/32 GRAINS " 612 DATA "OUNCE (OZ.)","16 DRAMS " 613 DATA "POUND (LB.)","16 OUNCES " 614 DATA "HUNDREDWEIGHT (CWT.)","100 POUNDS " 615 DATA "TON ","20 CWT.(2000 LB.)" 699 REM ** QUIZ #7 700 DATA 9,3,9,1,5,"[144]","[158]","[149]","[144]" 701 REM * QUIZ TITLE 702 DATA "[160][160][160][160][160][160][160][160][160][211][207][205][197][212][200][201][206][199][167][211][160][195][207][207][203][201][206][199][160][160][160][160][160][160][160][160][160][160][160][146]" 703 REM * FORMAT LINE 704 DATA " RECIPE MEASURES FROM LEAST TO MOST " 705 REM * HEADERS 706 DATA "[160][205][197][193][211][213][210][197][160][160][160][160][160][160][160][160][160][160][160][160][160]" 708 DATA "[160][201][211][160][205][193][196][197][160][213][208][160][207][198][160][174][174][174]" 709 REM ** QUIZ ITEMS IN CORRECT ORDER 710 DATA "DROP ","NOT VERY MUCH " 711 DATA "TEASPOON (TSP.)","60 DROPS " 712 DATA "TABLESPOON (TBL.)","3 TEASPOONS " 713 DATA "OUNCE (OZ.)","2 TABLESPOONS " 714 DATA "GILL ","4 OUNCES " 715 DATA "CUP ","8 OZ. (16 TBL.) " 716 DATA "PINT (PT.)","2 CUPS (16 OZ.) " 717 DATA "QUART (QT.)","2 PINTS (32 OZ.) " 718 DATA "GALLON (GAL.)","4 QT.(3.785 L) " 799 REM ** QUIZ #8 800 DATA 8,5,13,2,10,"","[144]","","[144]" 801 REM * QUIZ TITLE 802 DATA "[160][160][160][160][160][160][160][215][200][201][195][200][160][201][211][160][195][204][207][211][197][211][212][160][212][207][160][200][207][205][197][191][160][160][160][160][160][160][160][146]" 803 REM * FORMAT LINE 804 DATA " YOU LIVE 'IN' ALL THESE PLACES " 805 REM * HEADERS 806 DATA "[160][217][207][213][160][204][201][214][197][160][201][206][160][174][174][174][160][160][160][160][160]" 808 DATA "[160][201][212][160][201][211][160][193][160][174][174][174][160][160][160][160][160][160]" 809 REM ** REVISE THIS LIST TO FIT YOUR OWN SITUATION ************************ 810 DATA "675 LINDLEY RD. ","HOUSE/APARTMENT " 811 DATA "FRIENDSHIP ","TOWNSHIP/BOROUGH " 812 DATA "GREENSBORO ","TOWN/CITY " 813 DATA "GUILFORD ","COUNTY/PARISH " 814 DATA "NORTH CAROLINA ","STATE/PROVINCE " 815 DATA "UNITED STATES ","NATION " 816 DATA "NORTH AMERICA ","CONTINENT " 817 DATA "EARTH ","PLANET "